home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / edsqt101.zip / EDSQUOTE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-06  |  4KB  |  185 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     If (Exist(PPEPath() + "EDSQUOTE.QTS")) Then
  37.         If (Exist(PPEPath() + "EDSQUOTE.CNF")) Then
  38.             STRING001 = ReadLine(PPEPath() + "EDSQUOTE.QTS", 1)
  39.             INTEGER001 = S2I(STRING001, 10)
  40.             FOpen 1, PPEPath() + "EDSQUOTE.CNF", 2, 2
  41.             FGet 1, STRING003
  42.             INTEGER005 = S2I(STRING003, 10)
  43.             STRING003 = 0
  44.             FGet 1, STRING003
  45.             INTEGER004 = S2I(STRING003, 10)
  46.             STRING003 = 0
  47.             FGet 1, STRING004
  48.             FGet 1, STRING005
  49.             FGet 1, STRING003
  50.             FClose 1
  51.             STRING006 = Upper(STRING003)
  52.             STRING003 = 0
  53.             Gosub LABEL002
  54.             Cls
  55.             PrintLn "              @X10┌─────────────────────────────────────────────────@X19┐@X0F"
  56.             PrintLn "              @X10│                @X1BE@X1F.@X1BD@X1F.@X1BS@X1F. @X1BQuote @X1Ev@X1F1@X1E.@X1F0                @X19│@X0F"
  57.             PrintLn "              @X10│      @X1ACopyright @X1C(@X1EC@X1C) @X1A1993 by Eric D. Scales       @X19│@X0F"
  58.             PrintLn "              @X10└@X19─────────────────────────────────────────────────┘@X0F"
  59.             PrintLn 
  60.             PrintLn 
  61.             INTEGER002 = Random(INTEGER001)
  62.             If (INTEGER002 == 1) INTEGER002 = 2
  63.             STRING002 = ReadLine(PPEPath() + "EDSQUOTE.QTS", INTEGER002)
  64.             INTEGER003 = Len(STRING002)
  65.             INTEGER003 = 78 - INTEGER003
  66.             INTEGER003 = INTEGER003 / 2
  67.             PrintLn " @X38┌────────────────────────────────────────────────────────────────────────────@X3B┐@X0F"
  68.             PrintLn " @X38│                           @X3EYour Quote of the day @POS:79@@X3B│@X0F"
  69.             PrintLn " @X38│                       @X39───────────────────────────── @POS:79@@X3B│@X0F"
  70.             PrintLn " @X38│@POS:79@@X3B│@X0F"
  71.             PrintLn " @X38│" + Space(INTEGER003) + "@X3F" + STRING002 + "@POS:79@@X3B│@X0F"
  72.             PrintLn " @X38│@POS:79@@X3B│@X0F"
  73.             PrintLn " @X38└@X3B────────────────────────────────────────────────────────────────────────────┘@X0F"
  74.             PrintLn " @X07 "
  75.             If (BOOLEAN001 == 1) Then
  76.                 PrintLn " @X0FRegistered To: @X09" + STRING004
  77.                 PrintLn " @X0E               " + STRING005
  78.                 Goto LABEL001
  79.             Endif
  80.             PrintLn " @X09[@X8FUNREGISTERED EVALUATION COPY@X09]   @X0ACall @X0C(@X0F812@X0C)@X0F 423@X0C-@X0F3394@X0A for support.."
  81.             :LABEL001
  82.             Wait
  83.             Goto LABEL003
  84.             :LABEL002
  85.             INTEGER007 = INTEGER004 * 4
  86.             Inc INTEGER007
  87.             INTEGER007 = INTEGER007 + 2491
  88.             INTEGER007 = INTEGER007 - 8503
  89.             Inc INTEGER007
  90.             INTEGER007 = INTEGER007 + 9947
  91.             INTEGER007 = INTEGER007 / 2
  92.             Inc INTEGER007
  93.             INTEGER007 = INTEGER007 + 1211
  94.             Inc INTEGER007
  95.             BOOLEAN001 = 0
  96.             For INTEGER006 = 1 To Len(STRING004)
  97.                 INTEGER007 = INTEGER007 + Asc(Mid(STRING004, INTEGER006, 1))
  98.             Next
  99.             If (INTEGER007 == INTEGER005) BOOLEAN001 = 1
  100.             Return
  101.         Endif
  102.         PrintLn 
  103.         PrintLn "@X0C EDSQuote v1.0 ERROR: Your SysOp does not have the EDSQUOTE.QTS file installed!"
  104.         Log "EDSQuote ERROR: EDSQUOTE.QTS not found.. Please consult docs..", 1
  105.         PrintLn "@X0F Sysop has been notified, you may continue..."
  106.         Goto LABEL003
  107.     Endif
  108.     PrintLn 
  109.     PrintLn "@X0C EDSQuote v1.0 ERROR: Your SysOp does not have the EDSQUOTE.CNF file installed!"
  110.     Log "EDSQuote ERROR: EDSQUOTE.CNF not found.. Please consult docs..", 1
  111.     PrintLn "@X0F SysOp has been notified, you may continue..."
  112.     :LABEL003
  113.     If ((STRING006 <> "NONE") && (STRING006 <> "")) Call STRING006
  114.     End
  115.  
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Usage report (before postprocessing)
  119. ;
  120. ; ■ Statements used :
  121. ;
  122. ;    1       End
  123. ;    1       Cls
  124. ;    1       Wait
  125. ;    9       Goto 
  126. ;    25      Let 
  127. ;    23      PrintLn 
  128. ;    7       If 
  129. ;    1       FOpen 
  130. ;    1       FClose 
  131. ;    5       FGet 
  132. ;    2       Log 
  133. ;    1       Gosub 
  134. ;    1       Return
  135. ;    4       Inc 
  136. ;    1       Call 
  137. ;
  138. ;
  139. ; ■ Functions used :
  140. ;
  141. ;    1       *
  142. ;    2       /
  143. ;    16      +
  144. ;    2       -
  145. ;    3       ==
  146. ;    2       <>
  147. ;    1       <
  148. ;    1       <=
  149. ;    2       >=
  150. ;    4       !
  151. ;    3       &&
  152. ;    1       ||
  153. ;    3       Len(
  154. ;    1       Upper()
  155. ;    1       Mid()
  156. ;    1       Space()
  157. ;    1       Asc()
  158. ;    1       Random()
  159. ;    5       PPEPath()
  160. ;    2       ReadLine()
  161. ;    2       Exist()
  162. ;    3       S2I()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : C
  167. ;
  168. ; C - Call child PPE ■ 3
  169. ;     This is usually normal, but may be a tricky way to launch some
  170. ;     sysop-only commands.
  171. ;     ■ Search for : CALL
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Postprocessing report
  176. ;
  177. ;    1       For/Next
  178. ;    0       While/EndWhile
  179. ;    3       If/Then or If/Then/Else
  180. ;    0       Select Case
  181. ;
  182. ;------------------------------------------------------------------------------
  183. ;                 AEGiS Corp - Break the routines, code against the machines!
  184. ;------------------------------------------------------------------------------
  185.